home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8909a.d64 / body building (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  991b  |  21 lines
  1. 1 DATA0,0,0,0,192,96,1,64,80,1,64,80,1,64,80,2,74,72,2,91,72,2,91,72,2,123,200
  2. 2 DATA2,10,8,2,10,8,2,17,8,2,17,8,1,32,144,1,32,144,1,32,144,1,32,144,3,251,248
  3. 3 DATA3,251,248,3,251,248,3,251,248
  4. 4 POKE53280,0:POKE53281,3:PRINT"[147][144]C64 BODY BUILDING   '89 BY C.KAMMERMEYER"
  5. 5 PRINT"":FORI=1TO20:PRINT"[195][178]";:NEXT
  6. 6 PRINT"[144] 06 05 [158]04 [144]03 02 01 00 01 02 03 [158]04 [144]05 06  PORT 1";TAB(33)"PORT 2"
  7. 7 POKE2040,11:POKE53269,1:F=155:PA=20:PB=20:V=53248:S=54200
  8. 8 FORX=0TO62:READ D:POKE704+X,D:NEXT:POKEV+23,1:POKEV+29,1
  9. 9 J1=PEEK(56321):J2=PEEK(56320):IFO=1 THEN GOTO 12
  10. 10 IFJ1=A THEN F=F-5:PA=PA+1:PB=PB-1:GOTO15
  11. 11 IFJ1<>255THEN A=J1:O=1:F=F+5:PA=PA-1:PB=PB+1:GOTO 15
  12. 12 IFJ2=B THEN F=F+5:PB=PB+1:PA=PA-1:GOTO15
  13. 13 IFJ2<>127THEN B=J2:O=0:F=F-5:PB=PB-1:PA=PA+1:GOTO 15
  14. 14 O=0:GOTO 9
  15. 15 POKEV+39,8:POKE53249,145:POKE53248,F:PRINT"";TAB(10)"   ";TAB(37)"   "
  16. 16 IFF>252 THEN A$="PLAYER 1":GOTO 19
  17. 17 IFF<60 THEN A$="PLAYER 2":GOTO 19
  18. 18 PRINT"[156]PLAYER 1:";PA;TAB(27)"PLAYER 2:";PB:GOTO 9
  19. 19 POKES+96,15:POKES+78,240:FORI=1TO80:POKES+76,33:POKES+73,33:NEXT:POKES+76,0
  20. 20 POKES+73,0:PRINT"[144]";TAB(11)"WINNER:";A$:FORX=1TO6000:NEXTX:RUN
  21.